Sports Illustrated for Kids - Awesome Athletes!/Sports Illustrated for Kids - Awesome Athletes!.iso/iv.dir/00008_edit list scripts.ls

Text File | 1996-04-19 | 14.1 KB | 404 lines

on EditListPlay firstTime, pauseIt
  global givState, givFrameScript, givCONTROLPANELSPRITE, givMAINMONITORSPRITE, givEDITTEXTBOXSPRITE, givTextRegColor, gSISystem, gSIFlush, gSIEventQ, givPlayingQSL, exitFrame, givROLLCREDITSMASKSPRITE, givMainMonitorRefreshFlag
  MessagePut("edit list play")
  set stopMe to 9
  set givPlayingQSL to 0
  set ct to count(the editList of givState)
  set ptr to the editListPlaybackPtr of givState
  if ct < 1 then
    MessagePut("no edit list, ignore call")
    set the editList of givState to []
    set the editListPtr of givState to 0
    set the editListPlaybackPtr of givState to 0
    DVHide()
    exit
  end if
  if ptr > ct then
    set the editListPlaybackPtr of givState to 999
    MessagePut("edit list played out, abort")
    if the mode of givState = #edit then
      set the castNum of sprite (givCONTROLPANELSPRITE + 9) to the number of cast "play button"
    else
      set the castNum of sprite (givCONTROLPANELSPRITE + 9) to the number of cast "play mode play button"
    end if
    set givMainMonitorRefreshFlag to 1
    abort()
  end if
  if ptr < 1 then
    set the editListPlaybackPtr of givState to 1
    set ptr to 1
  end if
  if firstTime then
    set the visible of sprite givROLLCREDITSMASKSPRITE to 0
    MessagePut("starting editList, going to frame RollCredits")
    set the visible of sprite givEDITTEXTBOXSPRITE to 0
    go("ivRollCredits")
    exit
  end if
  set clipID to getAt(the editList of givState, ptr)
  MessagePut("clip at ptr" && ptr && "is" && clipID)
  if char 1 to 2 of clipID = "TR" then
    if count(the editList of givState) <= 1 then
    else
      if ptr = ct then
        if (ptr > 1) and (char 1 to 2 of getAt(the editList of givState, ptr - 1) <> "TR") then
          MessagePut("transition to black")
          DoTransition(char 3 of clipID, getAt(the editList of givState, ptr - 1), "black")
          exit
        else
        end if
      else
        if ptr = 1 then
          if (ct > 1) and (char 1 to 2 of getAt(the editList of givState, ptr + 1) <> "TR") then
            MessagePut("transition in from black")
            DoTransition(char 3 of clipID, "black", getAt(the editList of givState, ptr + 1))
            exit
          else
          end if
        else
          if (char 1 to 2 of getAt(the editList of givState, ptr - 1) = "TR") or (char 1 to 2 of getAt(the editList of givState, ptr + 1) = "TR") then
          else
            DoTransition(char 3 of clipID, getAt(the editList of givState, ptr - 1), getAt(the editList of givState, ptr + 1))
            exit
          end if
        end if
      end if
    end if
    set the editListPlaybackPtr of givState to ptr + 1
    EditListPlay(0, pauseIt)
    abort()
  end if
  set stopMe to PlayClip(clipID, 0, pauseIt)
  MessagePut("clip over" && stopMe)
  if stopMe = 1 then
    if the mode of givState = #edit then
      set the castNum of sprite (givCONTROLPANELSPRITE + 9) to the number of cast "play button"
    else
      set the castNum of sprite (givCONTROLPANELSPRITE + 9) to the number of cast "play mode play button"
    end if
    set givMainMonitorRefreshFlag to 1
    MessagePut("abort called, list done")
    abort()
  else
    set the editListPlaybackPtr of givState to the editListPlaybackPtr of givState + 1
    EditListPlay(0, pauseIt)
  end if
end

on DoTransition TR, clip1, clip2
  global givTransFrom, givTransTo, givTransitionType, givTransitionLookupList, gSISystem
  MessagePut("transition type" && TR & "... from" && clip1 && "to" && clip2)
  set givTransitionType to getAt(givTransitionLookupList, value(TR))
  if (clip1 = "black") or (char 1 to 2 of clip1 = "AD") then
    set givTransFrom to "MainMonitorCastBlack"
  else
    if gSISystem = "MAC" then
      set givTransFrom to clip1 & "L.BMP"
    else
      set givTransFrom to clip1 & "L.IND"
    end if
  end if
  if (clip2 = "black") or (char 1 to 2 of clip2 = "AD") then
    set givTransTo to "MainMonitorCastBlack"
  else
    if gSISystem = "MAC" then
      set givTransTo to clip2 & "F.BMP"
    else
      set givTransTo to clip2 & "F.IND"
    end if
  end if
  duplicate(cast givTransFrom, cast 501)
  duplicate(cast givTransTo, cast 502)
  set the name of cast 501 to "foo"
  set the name of cast 502 to "bar"
  MessagePut("going to frame ivTrans" & TR)
  put "Duck0"
  go("ivTrans" & TR)
  put "Duck2"
end

on EditListSave
  global givState, givEditListSave, gSISystem, gSIHDPath, gSIMiscX
  MessagePut("edit list save")
  PlaySoundWait("CLIK2.AIF")
  if (the mode of givState <> #edit) or (count(the editList of givState) < 1) then
    nothing()
    exit
  end if
  if objectp(givEditListSave) then
    givEditListSave(mdispose)
  end if
  set filenm to EMPTY
  if gSISystem = "MAC" then
    set filenm to givMyDialog(mPutFile, "editlist.sik", EMPTY)
  else
    set filenm to givMyDialog(mPutFile, EMPTY, "*.sik", "*.sik")
  end if
  if filenm = EMPTY then
    MessagePut("save file cancelled")
    exit
  end if
  if fileExists(filenm) then
    if gSIMiscX(mAnswer, "Replace file " & QUOTE & filenm & QUOTE & "?", EMPTY, "Replace", "Cancel") = "Cancel" then
      exit
    end if
  end if
  if gSISystem = "MAC" then
    set givEditListSave to FileIO(mnew, "write", filenm)
  else
    set givEditListSave to FileIO(mnew, "write", filenm)
  end if
  if not objectp(givEditListSave) then
    MessagePut("could not initialize editListSave, save failed")
    exit
  end if
  givEditListSave(mSetFinderInfo, "SIKD", "SIKD")
  givEditListSave(mWriteString, "%" & string(the editList of givState) & RETURN)
  MessagePut("wrote out " & the editList of givState)
  givEditListSave(mWriteString, "%" & the userName of givState & RETURN)
  givEditListSave(mWriteString, "%" & the userTitle of givState & RETURN)
  givEditListSave(mWriteString, "%" & the userLoc of givState & RETURN)
  givEditListSave(mdispose)
end

on EditListAdd
  global givState
  PlaySoundWait("CLIK2.AIF")
  if count(the questionSelectList of givState) > 0 then
    repeat with I = 1 to count(the questionSelectList of givState)
      append(the editList of givState, getAt(GetMonitorListByNumber(the activeMonitor of givState), getAt(the questionSelectList of givState, I)))
    end repeat
  else
    append(the editList of givState, GetClipID(the activeMonitor of givState))
  end if
  set the editListPtr of givState to count(the editList of givState)
  MessagePut("after add, editList:" && the editList of givState)
  DisplayEditTextBox()
end

on EditListRemove
  global givState
  PlaySoundWait("CLIK2.AIF")
  if count(the editList of givState) > 0 then
    deleteAt(the editList of givState, the editListPtr of givState)
    if count(the editList of givState) < the editListPtr of givState then
      set the editListPtr of givState to count(the editList of givState)
    end if
    MessagePut("after remove, editList:" && the editList of givState)
  end if
  DisplayEditTextBox()
end

on EditListRemoveAll
  global givState
  PlaySoundWait("CLIK2.AIF")
  set the editList of givState to []
  set the editListPtr of givState to 0
  DisplayEditTextBox()
end

on EditListReplace
  global givState
  PlaySoundWait("CLIK2.AIF")
  if count(the editList of givState) > 0 then
    deleteAt(the editList of givState, the editListPtr of givState)
    if count(the questionSelectList of givState) > 0 then
      repeat with I = 1 to count(the questionSelectList of givState)
        addAt(the editList of givState, the editListPtr of givState, getAt(GetMonitorListByNumber(the activeMonitor of givState), getAt(the questionSelectList of givState, I)))
        set the editListPtr of givState to the editListPtr of givState + 1
      end repeat
      set the editListPtr of givState to the editListPtr of givState - 1
    else
      addAt(the editList of givState, the editListPtr of givState, GetClipID(the activeMonitor of givState))
    end if
    MessagePut("after replace, editList:" && the editList of givState)
  end if
  DisplayEditTextBox()
end

on EditListInsert
  global givState
  PlaySoundWait("CLIK2.AIF")
  if the editListPtr of givState = 0 then
    set the editListPtr of givState to 1
  end if
  if count(the questionSelectList of givState) > 0 then
    repeat with I = 1 to count(the questionSelectList of givState)
      addAt(the editList of givState, the editListPtr of givState, getAt(GetMonitorListByNumber(the activeMonitor of givState), getAt(the questionSelectList of givState, I)))
      set the editListPtr of givState to the editListPtr of givState + 1
    end repeat
    set the editListPtr of givState to the editListPtr of givState - 1
  else
    addAt(the editList of givState, the editListPtr of givState, GetClipID(the activeMonitor of givState))
  end if
  MessagePut("after insert, editList:" && the editList of givState)
  DisplayEditTextBox()
end

on DisplayEditTextBox
  global givState, givTextRegColor, givTextHiliteColor, givVideoLookupList
  MessagePut("display edit text box...")
  if listp(the editList of givState) = 0 then
    MessagePut("null edit list, init edit list to []")
    set the editList of givState to []
    set the editListPtr of givState to 0
  end if
  if count(the editList of givState) = 0 then
    set the text of field "EditTextBox" to "*no edit list*"
    set the foreColor of field "EditTextBox" to givTextRegColor
  else
    set tempText to EMPTY
    repeat with I = 1 to count(the editList of givState)
      set id to getAt(the editList of givState, I)
      set tag to item 5 of getaProp(givVideoLookupList, id)
      put tag & RETURN after tempText
    end repeat
    set the text of field "EditTextBox" to tempText
    updateStage()
    HiliteEditTextBox()
  end if
end

on UpdateEditTextBox newPtr
  global givState
  set j to the editListPtr of givState
  MessagePut("old ptr is " & j)
  if (j < 1) or (j > the number of lines in field "EditTextBox") then
    nothing()
  else
    set S to offset("  <--", line j of field "EditTextBox")
    if S <> 0 then
      delete char S to S + 4 of line j of field "EditTextBox"
    end if
    set the editListPtr of givState to newPtr
    MessagePut("new ptr is " & newPtr)
    HiliteEditTextBox()
  end if
end

on HiliteEditTextBox
  global givState, givTextRegColor, givTextHiliteColor, givLastIndexLine
  set the foreColor of field "EditTextBox" to givTextRegColor
  set N to the number of lines in field "EditTextBox"
  set j to the editListPtr of givState
  MessagePut("about to set hilite, # lines:" && N && " ptr:" && j && "givLastIndexLine is" && givLastIndexLine)
  put "  <--" after line j of field "EditTextBox"
  updateStage()
end

on DoTransitionTest
  global givTransFrom, givTransTo, givTransitionType, givTransitionLookupList, gSISystem, givTransitionTest, givTransitionList, givState, givTransitionTestCleanupFlag, givTransTestPtr, givEDITTEXTBOXSPRITE, givTransTest
  set givTransFrom to "transFrom"
  set givTransTo to "transTo"
  DisableIdleAnim()
  set the visible of sprite givEDITTEXTBOXSPRITE to 0
  if count(the questionSelectList of givState) > 0 then
    if givTransTestPtr > count(the questionSelectList of givState) then
      set givTransitionTestCleanupFlag to 1
      set givTransTestPtr to 0
      exit
    else
      set givTransTest to 1
      set TR to getAt(givTransitionList, getAt(the questionSelectList of givState, givTransTestPtr))
      duplicate(cast givTransFrom, cast 501)
      duplicate(cast givTransTo, cast 502)
      set the name of cast 501 to "foo"
      set the name of cast 502 to "bar"
      MessagePut("going to frame ivTrans" & char 3 of TR)
      go("ivTrans" & char 3 of TR)
      set givTransitionTestCleanupFlag to 1
    end if
  else
    set givTransTest to 1
    set TR to getAt(givTransitionList, GetMonitorPtr(givState, 3))
    duplicate(cast givTransFrom, cast 501)
    duplicate(cast givTransTo, cast 502)
    set the name of cast 501 to "foo"
    set the name of cast 502 to "bar"
    MessagePut("going to frame ivTrans" & char 3 of TR)
    go("ivTrans" & char 3 of TR)
    set givTransitionTestCleanupFlag to 1
  end if
end

on PlayEditNext
  global givState, gSIEventQ, gSIFlush, gSISystem
  set ct to count(the editList of givState)
  set tmp to the editListPlaybackPtr of givState
  if ct > 0 then
    set tmp to tmp + 1
    if tmp > ct then
      set tmp to 1
    end if
    set found to 0
    repeat while (found = 0) and (tmp <> the editListPlaybackPtr of givState)
      set clip to getAt(the editList of givState, tmp)
      if char 1 to 2 of clip = "TR" then
        set tmp to tmp + 1
        if tmp > ct then
          set tmp to 1
        end if
        next repeat
      end if
      set found to 1
    end repeat
    MessagePut("incrementing editListPlaybackPtr to " & tmp)
    set the editListPlaybackPtr of givState to tmp
  end if
  if the activeVideoMode of givState = #play then
    MessagePut("stop the running movie...")
    EndBufferingEvents()
    DVPause()
    EditListPlay(0, #play)
    MessagePut("abort called after next clip started -- play")
    abort()
  end if
  if the activeVideoMode of givState = #pause then
    EndBufferingEvents()
    EditListPlay(0, #pause)
    MessagePut("abort called after next clip started -- pause")
    abort()
  end if
end

on PlayEditPrevious
  global givState, gSIEventQ, gSISystem
  set ct to count(the editList of givState)
  set tmp to the editListPlaybackPtr of givState
  set found to 0
  if ct > 0 then
    set tmp to tmp - 1
    if tmp = 0 then
      set tmp to ct
    end if
    repeat while (found = 0) and (tmp <> the editListPlaybackPtr of givState)
      set clip to getAt(the editList of givState, tmp)
      if char 1 to 2 of clip = "TR" then
        set tmp to tmp - 1
        if tmp = 0 then
          set tmp to ct
        end if
        next repeat
      end if
      set found to 1
    end repeat
    MessagePut("decrementing editListPlaybackPtr to " & tmp)
    set the editListPlaybackPtr of givState to tmp
  end if
  if the activeVideoMode of givState = #play then
    MessagePut("stop the running movie...")
    EndBufferingEvents()
    DVPause()
    set the activeVideoMode of givState to #pause
    EditListPlay(0, #play)
    MessagePut("abort called after next clip started -- play")
    abort()
  end if
  if the activeVideoMode of givState = #pause then
    EndBufferingEvents()
    EditListPlay(0, #pause)
    MessagePut("abort called after next clip started -- pause")
    abort()
  end if
end